! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialization File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Initialize.f90
! Time                 : Thu Dec 17 19:38:34 2020
! Working directory    : /n/home08/kbates/Aromatics/MOZART
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Initialize

  USE aromatics_kpp_Parameters, ONLY: dp, NVAR, NFIX
  IMPLICIT NONE

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialize - function to initialize concentrations
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Initialize ( )


  USE aromatics_kpp_Global

  INTEGER :: i
  REAL(kind=dp) :: x

  CFACTOR = 2.500000e+19_dp

  x = (1.0E-30)*CFACTOR
  DO i = 1, NVAR
    VAR(i) = x
  END DO

  x = (1.0E-30)*CFACTOR
  DO i = 1, NFIX
    FIX(i) = x
  END DO

  VAR(32) = (1.8E-6)*CFACTOR
  VAR(39) = (1.5E-4)*(0.0E-9)*CFACTOR
  VAR(44) = (0.5E-4)*(0.0E-9)*CFACTOR
  VAR(46) = (0.7E-5)*(5.0E-4)*CFACTOR
  VAR(50) = (2.0E-7)*CFACTOR
  VAR(141) = (3.0E-9)*CFACTOR
  VAR(175) = (7.5E-8)*CFACTOR
  VAR(179) = (5.0E-3)*(5.0E-4)*CFACTOR
  FIX(1) = (1.0E-2)*CFACTOR
  FIX(2) = (2.1E-1)*CFACTOR
! constant rate coefficients
  RCONST(13) = 5.35e+07
  RCONST(22) = 2e-11
  RCONST(26) = 4e-12
  RCONST(409) = 2.31e-11
  RCONST(422) = 4.7e-11
  RCONST(435) = 2.1e-12
  RCONST(436) = 2.8e-13
  RCONST(448) = 8.4e-11
  RCONST(463) = 9.9206e-11
  RCONST(464) = 1.1574e-11
  RCONST(465) = 3.9684e-12
  RCONST(466) = 3.3068e-13
  RCONST(471) = 1.1574e-05
  RCONST(472) = 1.1574e-05
  RCONST(473) = 1.1574e-05
  RCONST(474) = 1.1574e-05
  RCONST(475) = 1.1574e-05
  RCONST(476) = 1.1574e-05
  RCONST(477) = 1.1574e-05
  RCONST(478) = 1.1574e-05
  RCONST(479) = 1.1574e-05
  RCONST(480) = 1.1574e-05
  RCONST(481) = 1.1574e-05
  RCONST(482) = 1.1574e-05
  RCONST(483) = 1.1574e-05
  RCONST(484) = 1.1574e-05
  RCONST(485) = 1.1574e-05
  RCONST(486) = 1.1574e-05
  RCONST(487) = 1.1574e-05
  RCONST(488) = 1.1574e-05
  RCONST(489) = 1.1574e-05
  RCONST(490) = 1.1574e-05
  RCONST(491) = 1.1574e-05
  RCONST(492) = 1.1574e-05
  RCONST(493) = 1.1574e-05
  RCONST(494) = 1.1574e-05
  RCONST(495) = 1.1574e-05
  RCONST(496) = 1.1574e-05
  RCONST(497) = 1.1574e-05
  RCONST(498) = 1.1574e-05
  RCONST(499) = 1.1574e-05
  RCONST(500) = 1.1574e-05
  RCONST(501) = 1.1574e-05
  RCONST(502) = 1.1574e-05
  RCONST(503) = 1.1574e-05
  RCONST(504) = 1.1574e-05
  RCONST(505) = 1.1574e-05
  RCONST(506) = 1.1574e-05
  RCONST(507) = 1.1574e-05
  RCONST(508) = 1.1574e-05
  RCONST(509) = 1.1574e-05
  RCONST(510) = 1.1574e-05
  RCONST(511) = 1.1574e-05
  RCONST(512) = 1.1574e-05
  RCONST(513) = 1.1574e-05
  RCONST(514) = 1.1574e-05
  RCONST(515) = 1.1574e-05
  RCONST(516) = 1.1574e-05
  RCONST(517) = 1.1574e-05
  RCONST(518) = 1.1574e-05
  RCONST(519) = 1.1574e-05
  RCONST(520) = 1.1574e-05
  RCONST(521) = 1.1574e-05
  RCONST(522) = 1.1574e-05
  RCONST(523) = 1.1574e-05
  RCONST(524) = 1.1574e-05
  RCONST(525) = 1.1574e-05
  RCONST(526) = 1.1574e-05
  RCONST(527) = 1.1574e-05
  RCONST(528) = 1.1574e-05
  RCONST(529) = 1.1574e-05
  RCONST(530) = 1.1574e-05
  RCONST(531) = 1.1574e-05
  RCONST(532) = 1.1574e-05
  RCONST(533) = 1.1574e-05
  RCONST(534) = 1.1574e-05
  RCONST(535) = 1.1574e-05
  RCONST(536) = 1.1574e-05
  RCONST(537) = 1.1574e-05
  RCONST(538) = 1.1574e-05
  RCONST(539) = 1.1574e-05
  RCONST(540) = 1.1574e-05
  RCONST(541) = 1.1574e-05
  RCONST(542) = 1.1574e-05
  RCONST(543) = 1.1574e-05
  RCONST(544) = 1.1574e-05
  RCONST(545) = 1.1574e-05
  RCONST(546) = 1.1574e-05
  RCONST(547) = 1.1574e-05
  RCONST(548) = 1.1574e-05
  RCONST(549) = 1.1574e-05
  RCONST(550) = 1.1574e-05
  RCONST(551) = 1.1574e-05
  RCONST(552) = 1.1574e-05
  RCONST(553) = 1.1574e-05
  RCONST(554) = 1.1574e-05
  RCONST(555) = 1.1574e-05
  RCONST(556) = 1.1574e-05
  RCONST(557) = 1.1574e-05
  RCONST(558) = 1.1574e-05
  RCONST(559) = 1.1574e-05
  RCONST(560) = 1.1574e-05
  RCONST(561) = 1.1574e-05
  RCONST(562) = 1.1574e-05
  RCONST(563) = 1.1574e-05
  RCONST(564) = 1.1574e-05
  RCONST(565) = 1.1574e-05
  RCONST(566) = 1.1574e-05
  RCONST(567) = 1.1574e-05
  RCONST(568) = 1.1574e-05
  RCONST(569) = 1.1574e-05
  RCONST(570) = 1.1574e-05
  RCONST(571) = 1.1574e-05
  RCONST(572) = 1.1574e-05
  RCONST(573) = 1.1574e-05
  RCONST(574) = 1.1574e-05
  RCONST(575) = 1.1574e-05
  RCONST(576) = 1.1574e-05
  RCONST(577) = 1.1574e-05
  RCONST(578) = 1.1574e-05
  RCONST(579) = 1.1574e-05
  RCONST(580) = 1.1574e-05
  RCONST(581) = 1.1574e-05
  RCONST(582) = 1.1574e-05
  RCONST(583) = 1.1574e-05
  RCONST(584) = 1.1574e-05
  RCONST(585) = 1.1574e-05
  RCONST(586) = 1.1574e-05
  RCONST(587) = 1.1574e-05
  RCONST(588) = 1.1574e-05
  RCONST(589) = 1.1574e-05
  RCONST(590) = 1.1574e-05
  RCONST(591) = 1.1574e-05
  RCONST(592) = 1.1574e-05
  RCONST(593) = 1.1574e-05
  RCONST(594) = 1.1574e-05
  RCONST(595) = 1.1574e-05
  RCONST(596) = 1.1574e-05
  RCONST(597) = 1.1574e-05
  RCONST(598) = 1.1574e-05
  RCONST(599) = 1.1574e-05
  RCONST(600) = 1.1574e-05
  RCONST(601) = 1.1574e-05
  RCONST(602) = 1.1574e-05
  RCONST(603) = 1.1574e-05
  RCONST(604) = 1.1574e-05
  RCONST(605) = 1.1574e-05
  RCONST(606) = 1.1574e-05
  RCONST(607) = 1.1574e-05
  RCONST(608) = 1.1574e-05
  RCONST(609) = 1.1574e-05
  RCONST(610) = 1.1574e-05
  RCONST(611) = 1.1574e-05
  RCONST(612) = 1.1574e-05
  RCONST(613) = 1.1574e-05
  RCONST(614) = 1.1574e-05
  RCONST(615) = 1.1574e-05
  RCONST(616) = 1.1574e-05
  RCONST(617) = 1.1574e-05
  RCONST(618) = 1.1574e-05
  RCONST(619) = 1.1574e-05
  RCONST(620) = 1.1574e-05
  RCONST(621) = 1.1574e-05
  RCONST(622) = 1.1574e-05
  RCONST(623) = 1.1574e-05
  RCONST(624) = 1.1574e-05
  RCONST(625) = 1.1574e-05
  RCONST(626) = 1.1574e-05
  RCONST(627) = 1.1574e-05
  RCONST(628) = 1.1574e-05
  RCONST(629) = 1.1574e-05
  RCONST(630) = 1.1574e-05
  RCONST(631) = 1.1574e-05
  RCONST(632) = 1.1574e-05
  RCONST(633) = 1.1574e-05
  RCONST(634) = 1.1574e-05
  RCONST(635) = 1.1574e-05
  RCONST(636) = 1.1574e-05
  RCONST(637) = 1.1574e-05
  RCONST(638) = 1.1574e-05
  RCONST(639) = 1.1574e-05
  RCONST(640) = 1.1574e-05
  RCONST(641) = 1.1574e-05
  RCONST(642) = 1.1574e-05
  RCONST(643) = 1.1574e-05
  RCONST(644) = 1.1574e-05
! END constant rate coefficients

! INLINED initializations

        TSTART = 0
        TEND = TSTART + 707400
        DT = 60.0
        TEMP = 298

! End INLINED initializations

      
END SUBROUTINE Initialize

! End of Initialize function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE aromatics_kpp_Initialize

